(prompt "Where is AmiTCP Control Panel Installed?")
(help @askdir-help)
(default "sys:wbstartup")
)
)
(copyfiles
(prompt "Copying AmiTCP Control Panel to " @default-dest )
(help @copyfiles-help)
(source "cp_MainProg/controlpanel4.2")
(dest @default-dest)
(infos)
)
(copyfiles
(prompt "Copying AmiTCP Control Panel to " @default-dest )
(help @copyfiles-help)
(source "cp_MainProg/controlpanel.exe")
(dest "c:")
)
(set @doc-dest
(askdir
(prompt "Where do you want to install AmiTCP Control Panel's Documents?")
(help @askdir-help)
(default "amitcp:docs")
)
)
(copyfiles
(prompt "Copying AmiTCP Control Panel Docs to " @doc-dest )
(help @copyfiles-help)
(source "docs")
(all)
(dest @doc-dest)
(infos)
(confirm)
)
(copyfiles
(prompt "Copying AmiTCP Control Panel Scripts and Commands to AmiTCP:bin" )
(help @copyfiles-help)
(source "bin")
(all)
(dest "Amitcp:bin")
(infos)
(confirm)
)
(copylib
(prompt "Copying AmiTCP Control Panel Libs to Libs:" )
(help @copyfiles-help)
(source "Libs/rexxarplib.library")
(dest "Libs:")
(infos)
(confirm)
)
(copylib
(prompt "Copying AmiTCP Control Panel Libs to Libs:" )
(help @copyfiles-help)
(source "Libs/rexxreqtools.library")
(dest "Libs:")
(infos)
(confirm)
)
(copylib
(prompt "Copying AmiTCP Control Panel Libs to Libs:" )
(help @copyfiles-help)
(source "Libs/rexxsupport.library")
(dest "Libs:")
(infos)
(confirm)
)
(copylib
(prompt "Copying AmiTCP Control Panel Libs to Libs:" )
(help @copyfiles-help)
(source "Libs/rexxplslib.library")
(dest "Libs:")
(infos)
(confirm)
)
(set left
(asknumber
(prompt "Enter How Far From The Left \n Of The Screen Do You Want \n Control Panel To Appear")
(help @asknumber-help)
(range 0 1200)
(default 20)
)
)
(set top
(asknumber
(prompt "Enter How Far Down The Screen \n Do You Want Control Panel To Appear")
(help @asknumber-help)
(range 0 600)
(default 30)
)
)
(set device1
(askbool
(prompt "Select The Device\n You Use To\nConnect To The Net\nThis Is Usually\n\nSLIP")
(default 1)
(choices "SLIP" "OTHER")
(help "IF Not Sure It Is Probably SLIP")
)
)
(if(= device1 1)
(set DEVICE ("DEVICE = SLIP\n"))
(set DEVICE ("DEVICE = PPP\n"))
)
(set Status1
(askbool
(prompt "\nDo You Want\nControl Panel\nStatus Information")
(default 1)
(choices "YES" "NO")
(help "Oh dear, just make a decsion!")
)
)
(if(= Status1 1)
(set STATUS ("STATUS = YES\n"))
(set STATUS ("STATUS = NO\n"))
)
(message "\nControl Panel V4 runs various programs.\nAs everybodies Amitcp set up varies\nit is necessary to configure the particular\n programs you are using.\n")
(set link
(askfile
(prompt "What Script Do You Use To Connect To The Net?")
(help @askfile-help)
(default "amitcp:bin/link_gui.exe")
)
)
(set mail
(askfile
(prompt "What Mail Program Do You Use?")
(help @askfile-help)
(default "amitcp:bin/mail")
)
)
(set news
(askfile
(prompt "What News Program Do You Use?")
(help @askfile-help)
(default "amitcp:bin/grn")
)
)
(set ftp
(askfile
(prompt "What FTP Program Do You Use?")
(help @askfile-help)
(default "amitcp:bin/gui-ftp")
)
)
(set WWW
(askfile
(prompt "What WWW Browser Do You Use?")
(help @askfile-help)
(default "amitcp:bin/amosaic")
)
)
(set Gopher
(askfile
(prompt "What Gopher Program Do You Use?")
(help @askfile-help)
(default "amitcp:bin/gopher")
)
)
(set IRC
(askfile
(prompt "What IRC Program Do You Use?")
(help @askfile-help)
(default "amitcp:bin/gv")
)
)
(set UUDECODER
(askfile
(prompt "What UUDecoder Do You Use?")
(help @askfile-help)
(default "amitcp:bin/uuxt-gui")
)
)
(set DeArchiver
(askfile
(prompt "What DeArchiver Do You Use?")
(help @askfile-help)
(default "amitcp:bin/guiarc")
)
)
(set newsed
(askfile
(prompt "What News Group Editor Do You Use?")
(help @askfile-help)
(default "amitcp:bin/newsed_gui.exe")
)
)
(message "Control Panel V4\n has 2 buttons and 5 menu items\n which can be configured by the user,\n\n If you do not require these options\n just keep pressing proceed")
(set option1Text
(askstring
(prompt "Enter Menu and Button Text For Option 1/nIt Must Consist Of 1 Word Only")
(help @askstring-help)
(default " ")
)
)
(set option1prog
(askfile
(prompt "Which Program Should This Option Run?")
(help @askfile-help)
(default " ")
)
)
(set option2Text
(askstring
(prompt "Enter Menu and Button Text For Option 2\nIt Must Consist Of 1 Word Only")
(help @askstring-help)
(default " ")
)
)
(set option2prog
(askfile
(prompt "Which Program Should This Option Run?")
(help @askfile-help)
(default " ")
)
)
(set option3Text
(askstring
(prompt "Enter Menu Text For Option 3\nIt Must Consist Of 1 Word Only")
(help @askstring-help)
(default " ")
)
)
(set option3prog
(askfile
(prompt "Which Program Should This Option Run?")
(help @askfile-help)
(default " ")
)
)
(set option4Text
(askstring
(prompt "Enter Menu Text For Option 4\nIt Must Consist Of 1 Word Only")
(help @askstring-help)
(default " ")
)
)
(set option4prog
(askfile
(prompt "Which Program Should This Option Run?")
(help @askfile-help)
(default " ")
)
)
(set option5Text
(askstring
(prompt "Enter Menu Text For Option 5\nIt Must Consist Of 1 Word Only")
(help @askstring-help)
(default " ")
)
)
(set option5prog
(askfile
(prompt "Which Program Should This Option Run?")
(help @askfile-help)
(default " ")
)
)
(message "Control Panel V4\n allows the user details for 4 users to be preset,\n and quickly changed by using a menu.\n\nIf you don't want use this facility\njust keep pressing proceed.")
(set User1Text
(askstring
(prompt "Enter Menu Text For User 1\nIt Must Consist Of 1 Word Only")
(help @askstring-help)
(default "")
)
)
(set user1name
(askstring
(prompt "Enter the User Name of User 1\nThis Must Consist Of One Word Only")
(help @askstring-help)
(default "")
)
)
(set user1realname
(askstring
(prompt "Enter the Real Name of User 1")
(help @askstring-help)
(default "")
)
)
(set User2Text
(askstring
(prompt "Enter Menu Text For User 2\nIt Must Consist Of 1 Word Only")
(help @askstring-help)
(default "")
)
)
(set user2name
(askstring
(prompt "Enter the User Name of User 2\nThis Must Consist Of One Word Only")
(help @askstring-help)
(default "")
)
)
(set user2realname
(askstring
(prompt "Enter the Real Name of User 2")
(help @askstring-help)
(default "")
)
)
(set User3Text
(askstring
(prompt "Enter Menu Text For User 3\nIt Must Consist Of 1 Word Only")
(help @askstring-help)
(default "")
)
)
(set user3name
(askstring
(prompt "Enter the User Name of User 3\nThis Must Consist Of One Word Only")
(help @askstring-help)
(default "")
)
)
(set user3realname
(askstring
(prompt "Enter the Real Name of User 3")
(help @askstring-help)
(default "")
)
)
(set User4Text
(askstring
(prompt "Enter Menu Text For User 4\nIt Must Consist Of 1 Word Only")
(help @askstring-help)
(default "")
)
)
(set user4name
(askstring
(prompt "Enter the User Name of User 4\nThis Must Consist Of One Word Only")
(help @askstring-help)
(default "")
)
)
(set user4realname
(askstring
(prompt "Enter the Real Name of User 4")
(help @askstring-help)
(default "")
)
)
(message "Control Panel V4\nAllows You To Change The Pop You Use\nBy Selecting A Menu option\n\nIf You Do Not require This Option \nJust Keep Pressing Proceed")
(set pop1text
(askstring
(prompt "Enter The Menu Text For POP1\nThis Must Consist Of One Word Only")
(help @askstring-help)
(default "")
)
)
(set pop1file
(askfile
(prompt "What Dialscript Is Used To Dial This POP")
(help @askfile)
(default "")
)
)
(set pop2text
(askstring
(prompt "Enter The Menu Text For POP2\nThis Must Consist Of One Word Only")
(help @askstring-help)
(default "")
)
)
(set pop2file
(askfile
(prompt "What Dialscript Is Used To Dial This POP")
(help @askfile)
(default "")
)
)
(set pop3text
(askstring
(prompt "Enter The Menu Text For POP3\nThis Must Consist Of One Word Only")
(help @askstring-help)
(default "")
)
)
(set pop3file
(askfile
(prompt "What Dialscript Is Used To Dial This POP")
(help @askfile)
(default "")
)
)
(Set intro1 "; Control Panel Configuration File\n")
